home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / bestofsd.lha / Xor3.AMOS / Xor3.amosSourceCode
AMOS Source Code  |  1992-10-20  |  995b  |  35 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. For N=1 To 0 Step -1
  12.    Screen Open N,320,256,32,Lowres : Flash Off : Curs Off : Hide 
  13.    Palette $0,$112,$224,$336,$448,$55A,$66C,$77E,$88F,$99E,$AAD,$BBC,$CCB,$DDA,$EE9,$FF8,$FF7,$EE6,$DD5,$CC4,$BB3,$AA2,$991,$881,$771,$661,$551,$441,$331,$221,$111,$111
  14.    BILDT=0
  15.    For Y=0 To 255 Step 8
  16.       Add BILDT,1,1 To 31
  17.       Ink BILDT
  18.       Bar 0,Y To 319,Y+8
  19.    Next 
  20. Next 
  21.  
  22. Shift Up 1,1,31,1
  23. For T=0 To 1220
  24.    Add B,16,0 To 255
  25.    X=144+Sin(C*6.0)*C/5
  26.    Y=116+Cos(C*6.0)*C/5
  27.    Screen Copy 1,0,B,16,B+16 To 0,X,Y,%1100000
  28.    Inc C
  29. Next 
  30.  
  31. Wait Key 
  32. Shift Off 
  33. Fade 1
  34. Wait 12
  35. Edit